home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 05-08.BAS < prev    next >
BASIC Source File  |  1991-06-06  |  549b  |  35 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. CONST Colors = 16
  6. CONST RectWidth = 40
  7.  
  8. Mode = FGgetmode
  9. FGsetmode 16
  10.  
  11. BaseColor = 0
  12. MinX = 0
  13. MaxX = RectWidth - 1
  14.  
  15. FOR RectColor = 0 TO Colors-1
  16.    FGpalette RectColor, 0
  17.    FGsetcolor RectColor
  18.    FGrect MinX, MaxX, 0, 349
  19.    MinX = MaxX + 1
  20.    MaxX = MaxX + RectWidth
  21. NEXT
  22.  
  23. WHILE BaseColor < Colors*4
  24.    FOR RectColor = 0 TO Colors-1
  25.       FGpalette RectColor, BaseColor+RectColor
  26.    NEXT
  27.    BaseColor = BaseColor + Colors
  28.    FGwaitkey
  29. WEND
  30.  
  31. FGsetmode Mode
  32. FGreset
  33.  
  34. END
  35.